home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Run Magazine ReRun 1986 September & October
/
rerun-1986-09-10.d64
/
demo pointer
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
2KB
|
76 lines
10 rem demo pointer by john m. campbell
20 print chr$(147);chr$(17);chr$(17);tab(13)"demo pointer"
30 for i=1to12:print:nexti
40 v=53248
50 for n=0 to 63:read q:poke 703+n,q:next n
60 poke 2047,11:rem sprite 7 data in 11th block
70 poke 53294,1:rem set sprite 7 color to black
80 sz=0:poke v+23,sz:poke v+29,sz
90 poke v+14,170:rem x position of sprite
100 poke v+15,100:rem y position of sprite
110 poke v+21,128:rem enable sprite 7
120 print " [158]press space bar to change arrow's size[154]"
130 printtab(7)"<press return to continue>"
140 get a$
150 if a$=chr$(13) goto 210
160 if a$<>" " goto 140
170 if sz=0 then sz=128:goto 190
180 sz=0
190 poke v+23,sz:poke v+29,sz:rem set sprite size
200 goto 140
210 print "[145][145][145] press space bar to change arrow's color[154]"
220 printtab(7)"<press return to continue>"
230 get a$
240 if a$=chr$(13) goto 290
250 if a$<>" " goto 230
260 cl=cl+1:if cl=16 then cl=0
270 poke 53294,cl:rem set sprite 7 color
280 goto 230
290 rem sprite data
300 data 0,0,0,0,255,252,0,255,248,0
310 data 255,240,0,255,192,0,255,224,0
320 data 255,248,0,255,255,240,255,255,252
330 data 243,255,254,225,255,255,128,255,255
340 data 0,255,128,0,254,0,0,252,0
350 data 0,252,0,0,252,0,0,124,0
360 data 0,28,0,0,12,0,0,0,0
370 ad=49200:rem load address
380 aa=ad
390 print"loading handler"
400 read d:printd:print"[145][145]
410 [139] d[179]0 [167] 450
420 [151] aa,d
430 aa[178]aa[170]1
440 [137] 400
450 [153]"contloadhandler loaded"
460 [129] i[178]0 [164] 12
470 [135] d:[151] 679[170]i,d
480 [130] i
490 a1[178][181](ad[173]256):[151] 686,a1
500 a0[178]ad[171]a1[172]256:[151] 681,a0
510 [158] 679
520 [128]
530 [131] 169,16,45,0,220,208,11,173,191
540 [131] 2,48,53,56,110,191,2,48,47,169
550 [131] 128,205,191,2,208,13,77,21,208
560 [131] 141,21,208,169,2,141,191,2,16
570 [131] 89,169,129,205,191,2,208,13,77
580 [131] 21,208,141,21,208,169,0,141
590 [131] 191,2,240,7,169,2,205,191,2
600 [131] 240,108,169,1,45,0,220,208,15
610 [131] 206,15,208,169,29,205,15,208
620 [131] 208,22,169,249,141,15,208,169
630 [131] 2,45,0,220,208,10,238,15,208
640 [131] 208,5,169,34,141,15,208,169
650 [131] 4,45,0,220,208,25,206,14,208
660 [131] 208,57,206,14,208,169,128,77
670 [131] 16,208,141,16,208,16,44,169,87
680 [131] 141,14,208,16,37,169,8,45,0
690 [131] 220,208,30,238,14,208,240,17
700 [131] 169,128,45,16,208,240,18,169
710 [131] 88,77,14,208,208,11,141,14,208
720 [131] 169,128,77,16,208,141,16,208
730 [131] 76,49,234,-1
740 [131] 120,169,0,141,20,3
750 [131] 169,192,141,21,3,88,96